MK 


ROCESSORS 


BASIC Stamp 
programming course (3) 





part 3: BASIC programming 





In this instalment we'll 
introduce BASIC 
Stamp branching and 
EEPROM access 
commands used to 
make your Boe-Bot 
follow a pre-deter- 
mined path. A piezo- 
Speaker will provide a 
feedback mechanism 
to identify the location 
within your program. 
We'll also introduce a 
mobile temperature 
logger as an optional 
project to help you 
learn synchronous 
serial Communication. 


Attention. An important Correction 
regarding the Elektor Electronics BoE- 
Bot development board appears dse 
wherein this issue. 


By Chuck Schoeffler, Ph. D., 





Ken Gracey and Russ Miller 
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Figure 13. Basic con- 
trol and feedback 
schematic. 


MOVEMENT USING 
SUBROUTINES AND 
MEMORY 

Movement is one of the most distinc- 
tive features of robots, and it is also an 
ideal way to learn how to structure 
and write a simple PBASIC program. 
This experiment ts all about BASIC pro- 
gramming as it pertains to Boe-Bot 
movement without sensor input. 
Structuring your program so the BoE- 
Bot moves as you intend requires an 
understanding of how to call subrou- 
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3300uF 
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Parts List. 


Complete Boe-Bot (robot built on 
Elektor Electronics Board of 
Education) 

Piezospeaker 


3300uF capacitor 
10kQ resistors (optional in circuit) 





tines, read movement patterns from an 
EEPROM, know how far to travel 
using a for-next loop, and how to get 
back to your starting point (physically, 
and within your source code). The 
parts we will be using are listed in the 
Parts List. The complete schematic for 
programs used in this column is shown 
in Figure 13. 
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REVIEW OF 

SERVO CONTROL 

Servos are closed loop devices, and 
they are constantly comparing their 
commanded position (from the BASIC 
Stamp’s pul sout command) to their 
actual position (proportional to the 
resistance of a potentiometer mechan- 
ically linked to the shaft). If there is 
more than a small difference between 
the two, the servo’s electronics will 
turn the motor to eliminate the error. 

We modified the servo’s poten- 
tiometer shaft until the gears stopped 
moving when the BASIC Stamp sent a 
1500 us pulse. Apul sout valueof 750 
is equal to 1500 us (the command oper- 
ates in units of two microseconds). A 
value larger than 750 will turn the 
servo clock-wise, and a value less than 
750 will turn it counter-clockwise. A 
value very close to 750, like 760, will 
cause the servo to turn very slowly. 
Figure 14 is a timing diagram of the 
pulsewidth modulation. 

A for-next loop can be used to see 
how different pulsewidths affect the 
servo’s speed. Stand your BoE-Bot on 
its front or place an object underneath 
it to keep it from rolling away. Down- 
load Program Listing 1 to your BASIC 
Stamp. Figure 15 is a graph of 
pulsewidth compared to revolutions 
per minute using the Futaba S-148 
servo. 


SOUND FEEDBACK 

The BASIC Stamp’s freqout com- 
mand can be used to add sound feed- 
back to your BoE-Bot. Like all PBASIC 
commands, it has a particular syntax 
that must be followed to make it work. 
To hear the speaker, download the fol- 
lowing codeto your BASIC Stamp: 


freqout 12,750, 2000 
‘750 ms 2000 Hz tone on P12 


For a more “robotic” sound try the 
example in Program Listing 2. 

This routine begins by declaring Hz 
as a word variable, a number between 
O and 65,536. The loop executes a total 
of four times ((4000-1)/1000), generat- 
ing two frequencies at once on P12. 
The first frequency is increasing from 1 
to 4000 Hz whilethe second frequency 
IS decreasing from 4000 to 1 Hz. 
Sounds like this could be added 
throughout your program. 


GOTO STATEMENT 
Normally, PBASIC programs execute 
Instructions line by line. The goto 
command causes the BASIC Stamp to 
jump to a named place somewhere 
else in the program. It can be either for- 
ward or backward in the program. The 
syntax is quite simple. 


goto forward‘jump to the 
forward routine 
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Figure 14. Servo con- 
trol using pulsewidth 


modulation. 
A E E Sitti ammkGine 
left servo con 15 
right servo con 3 
x var word 
pause 2000 


Get santa 

Ot ks = 050 ton 6 50 
pulsout left servo, x 
pulsout right servo, 1500-x 
pause 20 


next 


‘begin of routine 
‘pulse width of 1500 us 
‘pulse width of 1500 us 
‘pause for 20 ms 





e Ll Sine 2 

Hz var word 

for Hz = 1 to 4000 step 1000 
freqout 12,70, Hz, 4000- Hz 

‘generate two 70 ms tones on P12 

next 





GOSUB IS A CLOSE 
RELATIVE OF GOTO 

The gosub (Goto Subroutine) state- 
ment also causes the program execu- 
tion to jump somewhere else, but the 
line after thegos ub is remembered so 
that the program can automatically go 
back and continue where it left off. 
This lets us easily reuse sections of the 
program. The following example illus- 
trates theg os ub command. 


gosub right 
pause 1000 


Figure 15. Pulsewidth 


gosub right 
return 


right: 
for x=1 to 18 
pulsout left servo, 650 
pulsout right servo, 650 
pause 20 


This example shows ther | ght routine 
being executed twice with a one-sec- 
ond pause. The gosub commands 
may also be nested up 
to four deep, so that 


versus RPM using the 


Futaba S-148. 
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Figure 16. EEPROM 
memory map. 


each return takes the program back to 
the instruction after the most recent 
gosub. 


USING THE DATA 
STATEMENT AND 
EEPROM To STORE 
MOVEMENTS 

The BASIC Stamp has a 2K EEPROM 
that is used for program storage 
(which builds downward from address 
2047) and data storage (stores in the 
opposite direction — from address 0 
toward 2047). If the data collides with 
your program the source code will not 
execute properly. Each location is a 
byte. This isn’t enough memory to 
build a complex environmental data 
logger, but it’s certainly enough space 
to store bytes of information you'd like 
to use in a program. 

The BASIC Stamp’s EEPROM is differ- 
ent from RAM variable storage in sev- 
eral aspects: 


> EEPROM takes more time to store a 
value, sometimes up to several mil- 
liseconds. 

> EEPROM can accept a finite number 
of write cycles, around 10 million 
writes to be exact (RAM has unlim- 
ited read/write capabilities). 

> Primary function of the EEPROM is 
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-RAM Legend 
- Ping 
EEPROM Legend - Word 
BLOO0 00 OO 00 00 00 00 00 00 OO üü üü EE - Undef Data Byte 
e= fa [LJ] - Det. Data - Nibble 
E - Program - Bit 


RAM Map 
15141312111093 8 76543210 


INS: 
OUTS: 
DIRS: 
REGO: 
REGT: 
REG: 
REGJ: 
REG4: 
REGS: 
REGE: 
REG: 
REGS: 
REGS? LELITTTTITTITTITITITTI oI 
REGIO: TT TTT TPT TTP tt ty 
REGI:LITITITITITITTITT] 
Rote: bo) EAE pop EA EET ET t 


Condensed 
EEPROM Map Source Code 














L] - Unused | - Unused 








Progam LI Sel me) 
‘Boe-Bot Program for Roaming, Light, and Sound 
‘Define Variables and Constants 


X var word ‘loop counter for pulsout 
position var word ‘EEPROM address counter 
direction var word ‘value stored in EEPROM 
Hz var word ‘frequency variable 

right servo con 3 ‘right servo on P3 

left servo con 15 ‘left servo on P15 

speed con 40 ‘added or subtracted value 


data ”FRFRFRBBTFE” ‘store movements 


position=0 ‘start at EEPROM cell 0 
move: ‘main | oop 
read position, direction ‘read direction command 
position=position+l ‘increment to next cell 

if direction="E” then quit ‘Decide which action to take 


if direction="F” then forward’ by matching command letter 
if direction="R” then right 
if direction="L” then left 
if direction="B” then backward 
if direction="T" then turn arouna 
goto move ‘repeat until E is seen 


forward sound: 

for Hz = 1 to 4000 step 1000 
freqout 12,70, Hz, 4000- Hz 

next 
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Approximating distance of travel 


Its easy to approximate distance travel by calculating the circumference of a wheel and estimating the pulsewidth tim- 


ing loops executed by your PBASIC code. First determine wheel circumference. 


circumference = pi multiplied by wheel diameter 
circumference = 3.14159 x6.67 cm = 21cm 


Knowing the rotational speed of different pulse widths will allow you to determine a specific travel distance. For exam- 
ple, apul sout command of 850 causes the servo to turn at about 50 revolutions per minute (RPM) or 0.83 revolutions/sec. 
Therefore the speed of the robot will be about: 


21 cm/revolution x 0.83 revolutions/sec = 17.5 cm/s 


To travel 100 cm, the Boe-Bot would have to travel for: 

100 cm/ 17.5 cm/s = about 5.7 seconds 

Since each servo pulse takes about 1.5 ms and there is a 20 ms pause in 
the loop, each loop will take about 23 ms (1.5+1.5+20), or 0.023 sec- 
onds to execute. A total of 247 loops is required to travel 100 cm. You may 
have to adjust the for...next loop for your particular servo. 


5.7 sec / 0.023 sec/loop = 247 loops 


forward: 

for x=l to 247 
pulsout left servo, 650 
pulsout right servo, 850 
pause 20 

next 
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return 


back sound: 

for Hz = 4000 to 6000 step 1000 
freqout 12,70, Hz, Hz- 400 

next 

return 


right sound: 
freqout 8, 800, 2500 
return 


Pett sound: 
freqout 8, 800, 4500 
return 


forward: 

gosub forward sound 

for x=l to 60 
pulsout left servo, 7/50-speed 
pulsout right servo, 750+speed 

pause 20 

next 

goto move 


backward: 

gosub back sound 

for x= to 60 
pulsout left servo, 750+speed 
pulsout right servo, 750-speed 

pause 20 

next 

goto move 


E ee 
high 0 
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gosub right sound 


for x=l to 18 
pulsout left servo, 750-speed 
pulsout right servo, 750-speed 


pause 20 
next 
low 0 
goto move 
left: 
high 14 


gosub left sound 


hci oa Omealeg 
pulsout left servo, 7/50+speed 
pulsout right servo, 750+Speed 
pause 20 
next 
low 14 
goto move 


UT er ould: 

for x=1 to 30 
pulsout left servo, 850 
pulsout right servo, 850 


pause 20 
next 

goto move 
quit: 

end 





to store programs; data is stored in 
leftover space. 


Three commands are used to access 
the EEPROM: data, read, and 
wri te. The data stored in EEPROM 
builds from the upper left-hand corner 
(position 0,0) and fills downward ina 
left to right fashion, by row. The source 
code builds from lower right-hand cor- 
ner (position 16,128) and builds 
upward by row, right to left. If the two 
collide, the BASIC Stamp will not exe- 
cute the program properly. This is 
shown in Figure 16. 

The EEPROM memory map is 
accessed within the BASIC Stamp Win- 
dows editor under Run/Memory Map. 

The syntax for ther ead command 
is shown below. Thewr | t e command 
uses the same syntax. 


write 0,100 
‘write 100 into eeprom byte 0 
read 0,x 
‘read eeprom byte 0 and store 
value in x 
debug dec ? x 
‘display value on PC screen 


COMBINE 

THE CONCEPTS 

Program Listing 3 brings all of these 
concepts together: sound, movement, 
and speed. In order to make effective 
use of the speed, you will need to iden- 
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Extra Topic: Synchronous serial communication with 
the DS1620 Digital Ther mometer 


Sending bytes of data with a BASIC Stamp is handled by the shiftin and VDD 
shi ftout Commands. If you are ready to learn about serial communication, try pe 

this projecton your Board of Education. 
The following additional parts are required: 


One DS1620 Temperature Sensor 
One 1 KQ resistor 
One 0.1 uF capacitor 






100n 


| 4 |GND T(com)| 5 | 


X var byte ' define a general 990050 - 3 - 16 


purpose variable, byte 
degC var byte 


I 


define a variable to hold degrees Celsius 
' note: DS1620 has been preprogrammed for mode 2. 


outs =%0000000000000000 ' define the initial state of all pins 
‘fedcba9876543210 
dirs=%1111111111111111 ' as low outputs 
freqout 0,20,3800 ' beep to signal that it is running 
high 11 ' select the DS1620 
Shito 14 El Shih Sty T238] ' send the "Start convertions” command 
low 11 ‘ do the command 
loop: ' going to display once per second 
Ml Gln 1a ' select the DS1620 
SH Acie Se Sy Sle teste LI) ' send the "get data” command 
shifen Wasa SD pte | x ' get the data 
low 11 ' end the command 
degC=x/ 2 ' convert the data to degrees C 
debug ? degC ' show the result on the PC screen 
pause 1000 ' 1 second pause 
goto | oop ' read & display temperature 


Once the program is working try to use the write command to save temperature readings to the EEPROM, and read to 
receive them back and display on a debug terminal. 





tify the exact centre position of your 
servo. Chances are although we started 
with 750 (1500 ws) the servo may have 
wandered to aslightly different value. 
Program Listing 1 may berun to iden- 
tify these values. At higher speeds 
(speed constant around 40) this is not 
as visible, but at slower speeds the BoE- 
Bot will slowly move sideways if the 
center position is not exactly 750. 
Change values, movement patterns, 
and place the sound routines in differ- 
ent sections of the program. This pro- 
gram is also available from the down- 
loads section in 
http://www.stampsinclass.com. 
(990050-3) 
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